library(tidyverse)
tmp<- readxl::read_xlsx(path = "data/df_publication_2023.xlsx",
sheet = "data") %>%
pivot_longer(cols= where (is.numeric),
names_to = "time_period",
values_to = "obs_value") %>%
mutate(time_period = as.integer(time_period),
NUTS = as.factor(NUTS),
obs_value = as.numeric(obs_value))
tmp1<- tmp %>%
filter(Country=="EL" & vintage=="V2023" & unit == "PPS_HAB_EU27")